home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #5 / Amiga Plus CD - 1996 - No. 5.iso / pd / grafik / adpro_scripts / commands / last_saved_image < prev    next >
Text File  |  1996-04-21  |  413b  |  19 lines
  1. /* $VER: Last_Saved_Image 1.03 (20.04.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0A'x
  6. LAST_SAVED_IMAGE
  7. IF rc=0 THEN DO
  8.  zz=LASTPOS('/',ADPro_Result)
  9.  IF zz=0 THEN zz=LASTPOS(':',ADPro_Result)
  10.  FileName=RIGHT(ADPro_Result,LENGTH(ADPro_Result)-zz)
  11.  ADPRO_TO_FRONT
  12.  OKAY1 'The last image saved was'||NL||,
  13.        '"'||FileName||'"'
  14. END
  15. ELSE DO
  16.  ADPRO_TO_FRONT
  17.  OKAY1 'No image has been saved'
  18. END
  19.